home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / X-Demos and Utilities / (c)x1.d64 / demo fin.d (.txt) < prev    next >
Commodore BASIC  |  2008-11-26  |  11KB  |  127 lines
  1. 5 CD$="":V=54272:FORI=0TO28:POKEV+I,0:NEXT
  2. 6 BL$="                                     ":POKEV+24,15
  3. 20 PRINTCHR$(8):POKE53281,1:PRINTCHR$(142)"[147][144]WHY GAMBLE.......":POKE53280,5:PRINT"          [213][195][195][195][195][195][195][195][201]":PRINT"          [194]2      [194]":PRINT"     [213][195][195][195][195][177][195][195][201][211][144]   [194]":PRINT"     [194]3      [194]    [194]":PRINT"     [194]   [211][144]   [194]    [194]"
  4. 45 PRINT"     [194]       [194]    [194]":PRINT"     [194]       [194]    [194]":PRINT"     [194]   [211][144]   [194]    [194]":PRINT"     [194]       [194][211][144]   [194]":PRINT"     [194]       [194]   2[194]":PRINT"     [194]   [211][144]   [171][195][195][195][195][203]":PRINT"     [194]      3[194]":PRINT"     [202][195][195][195][195][195][195][195][203]"
  5. 53 A$="[194][214][214][214][214][214][214][214][194]":B$="[213][195][195][195][195][195][195][195][201]":C$="[202][195][195][195][195][195][195][195][203]":F=900:GOSUB2030:FORI=1TO9:FORJ=1TOI:PRINTLEFT$(CD$,J)TAB(25)A$:NEXT:PRINTLEFT$(CD$,J)TAB(25)C$:NEXT:PRINT""TAB(25)B$:FORI=1TO9:PRINTTAB(25)A$:NEXT:PRINTTAB(25)C$:FORI=1TO7:PRINTLEFT$(CD$,I)TAB(25)"           ":PRINTTAB(25)B$
  6. 80 FORJ=1TO9:PRINTTAB(25)A$:NEXT:PRINTTAB(25)C$:NEXT:F=1000:GOSUB2030:PRINTLEFT$(CD$,8):PRINTTAB(26)"A      ":PRINTLEFT$(CD$,9):FORI=2TO8:PRINTTAB(26)"       ":NEXT:PRINTTAB(26)"      A":PRINTLEFT$(CD$,13)TAB(29)"[211][144]":PRINT"   WHEN YOU KNOW YOU ARE ON A WINNER"
  7. 95 PRINT"      WITH A COMMODORE COMPUTER !":F=3000:GOSUB2030:POKE53281,0:POKE53280,8:PRINT"[147]"CHR$(14):P$="[198]ROM THE PEOPLE WHO BROUGHT YOU THE":GOSUB2040:P$="[195]OMMODORE [208][197][212] AND THE [214][201][195] 20 HOME":GOSUB2040
  8. 115 P$="COMPUTER, COMES A WHOLE NEW":GOSUB2040:P$="DIMENSION IN PERSONAL":GOSUB2040:P$="COMPUTING POWER.":GOSUB2040:F=3000:GOSUB2030:PRINT"[147]"CHR$(142);:POKE53280,7:POKE53281,5:POKEV+4,0:POKEV+1,1:POKEV+5,1:POKEV+6,240:POKEV+4,17:POKEV+5,1
  9. 132 FORI=1TO30:POKE646,I:PRINT"";:POKEV+1,I:PRINT"        [146]":PRINT"    [146]":PRINT"      [146]":PRINT"    [146]":PRINT"      [146]"
  10. 140 NEXT:POKEV+8,1:POKEV+12,1:POKEV+13,240:POKEV+11,33:FORI=1TO33:POKE646,I:PRINT"";:POKEV+8,30+I:POKEV+1,40-I:PRINT"[169] [223][169] [223][223][169][223][169][169] [223]  [223][169] [223]  [223]   [146]":PRINT"    [223][169]  [223][169]          [146]"
  11. 152 PRINT"    [146][223][169]  [146][223][169]         [146][169]  [146]":PRINT"              [146][223][223] [146]":PRINT"[223] [146][169][223] [146][169]    [146][223] [146][169]  [146][169][223] [146][169]     [146]":NEXT:POKEV+15,1:POKEV+19,1:POKEV+20,240:POKEV+18,17:POKEV+4,33
  12. 157 FORI=1TO18:POKE646,I:PRINT"":POKEV+15,I*2:POKEV+8,I*3:POKEV+1,80-I*4:PRINT"                   [169] [146][169][169] [146][169][169][146]":PRINT"                  [169] [146][169][169] [146][169][169] [146]":PRINT"                 [169] [146][169][169] [146][169]   [146]"
  13. 163 PRINT"                [169] [146][169][169] [146][169]    [146]":PRINT"               [169] [146][169][169] [146][169]     [146]":PRINT"              [169] [146][169][169] [146][169]      [146]":PRINT"             [169] [146][169][169]          [146][169]":PRINT"            [169] [146][169] [223] [223][146]       [146]"
  14. 168 PRINT"           [169] [146][169]   [223] [223][146]      [146]":PRINT"             [146]       [146]      [146]":PRINT"             [146]       [146]      [146]":PRINT"           [223] [223][146]   [169] [146][169]      [146]":PRINT"            [223]     [146][169]       [146]";
  15. 173 NEXT:FORI=0TO20:POKEV+I,0:NEXT:F=1000:GOSUB2030:FORI=1TO50:POKE53281,16*RND(1):POKE53280,16*RND(1):NEXT:POKE53281,0:POKE53280,3:F=2000:GOSUB2030:PRINT"[147]"CHR$(14)"":P$="[212]HE [195]OMMODORE 64 HAS MANY BUILT IN":GOSUB2040:P$="FEATURES THAT ARE NOT FOUND ON OTHER":GOSUB2040
  16. 205 P$="COMPUTERS COSTING TWICE AS MUCH.":GOSUB2040:P$="[212]HIS IS ONE OF THE MAIN FACTORS THAT":GOSUB2040:P$="MAKES THE [195]OMMODORE 64 A COST EFFECTIVE":GOSUB2040:PRINT"[145][145][145]":P$="AND USEFUL TOOL TO THE BUSINESSMAN":GOSUB2040
  17. 225 P$="AND HOBBYIST ALIKE.":GOSUB2040:F=3000:GOSUB2030:PRINT"":P$="[204]ET US HAVE A LOOK AT A FEW BUSINESS":GOSUB2040:P$="APPLICATIONS TO WHICH THE 64 CAN BE PUT":GOSUB2040:F=2000:GOSUB2030:PRINT"[147]"CHR$(142)
  18. 250 A$="[159]    WORD    ":B$="[159] PROCESSING ":C$="[159]            [146]":GOSUB2060:PRINT"[147][144]"CHR$(14):POKE53281,7:POKE53280,9:P$="   [193] WORD PROCESSOR IS PERHAPS THE":GOSUB2105:P$="   GREATEST TIME SAVER THAT CAN BE":GOSUB2105
  19. 265 P$="   INTRODUCED INTO ANY OFFICE.":GOSUB2105:F=1000:GOSUB2030
  20. 266 P$="   [194]ESIDES SAVING TIME, YOU WILL ALSO":GOSUB2105
  21. 267 P$="   SAVE A SMALL FORTUNE IN LIQUID":GOSUB2105
  22. 268 P$="   PAPER, BECAUSE OF THE EXTENSIVE":GOSUB2105
  23. 277 P$="   EDITING FACILITIES AVAILABLE TO YOU.":GOSUB2105:F=800:GOSUB2030:P$="   [198]OR EXAMPLE ..........":GOSUB2105:F=800:GOSUB2030:P$="   [205]ISTAK[157]^[145] CAN BE RECTIFIED AT THE":GOSUB2105:P$="   TOUCH OF A BUTTON.[145][145][145]":GOSUB2105
  24. 286 F=800:GOSUB2030:POKE1872,32:P$="[148][148]ES":GOSUB2105:F=1000:GOSUB2030:PRINT"[147]":P$="   [207]THER FACILITIES AVAILABLE ARE :-":GOSUB2105:P$="     * [211]EARCH AND [210]EPLACE":GOSUB2105:P$="     * [201]NSERTION AND [212]RANSFER":GOSUB2105
  25. 310 P$="     * [195]ENTERING AND [210]IGHT [193]LIGNMENT":GOSUB2105:P$="     * [205]AIL [205]ERGING":GOSUB2105:P$="     * [214]ARIABLE TEXT WIDTH":GOSUB2105:P$="     * [200]EADERS AND [198]OOTERS":GOSUB2105:P$="     * [196]OCUMENT PRINTING":GOSUB2105
  26. 330 P$="     * [198]ULL [211]CROLLING IN ANY DIRECTION":GOSUB2105:F=1000:GOSUB2030:P$="        [204]IKE THIS.....":GOSUB2105:GOSUB2140:FORI=1TO40:SYS4*4096:NEXT:PRINT"[147][197][193][211][217][160][211][195][210][201][208][212] IS THE WORD PROCESSOR":PRINT"  FOR THE [195]OMMODORE 64, AND IS BEING"
  27. 360 PRINT"  DEMONSTRATED AT THIS STORE.":F=4000:GOSUB2030:PRINT"[147]";:POKE53280,5
  28. 361 A$=" INFORMATION [146]":B$="PRESENTATION[146]":C$="            ":POKE 53281,0
  29. 362 PRINTCHR$(142):GOSUB2060:PRINTCHR$(14):PRINT"[147][158]"
  30. 363 P$="[201]MAGINE THAT YOU HAVE BEEN RUNNING":GOSUB 2040
  31. 380 P$="YOUR SMALL BUSINESS FOR THREE YEARS.":GOSUB2040:F=1500:GOSUB2030:PRINT:P$="[212]HERE WILL COME A TIME WHEN YOU WILL":GOSUB2040:P$="WISH TO CHECK ON ITS PROGRESS.":GOSUB2040:F=1500:GOSUB2030:PRINT
  32. 395 P$="[196]OES THE IDEA OF PORING OVER PAGES AND":GOSUB2040:P$="PAGES OF FIGURES APPEAL TO YOU ?":GOSUB2040:F=1500:GOSUB2030:PRINT:P$="[215]ELL WHY NOT LET THE [195]OMMODORE 64":GOSUB2040:P$="SHOW YOU YOUR PROGRESS IN A CLEAR":GOSUB2040
  33. 420 P$="CONCISE MANNER ?":GOSUB2040:F=3000:GOSUB2030:PRINT"[147][159]"CHR$(142):POKE53281,0:POKE53280,4:POKEV+5,0:POKEV+4,0:POKEV+6,0:TP$="[146][223] [223]":POKEV,20:POKEV+5,1:POKEV+6,240:POKEV+4,17:POKEV+2,240:FORI=1TO20:LU$=LU$+"[146] [165] [145][157][157][157]":TU$=TU$+"[167][145][157]":NEXT:TU$=" [145][157]"+TU$
  34. 1050 DIMV1(12):FORI=12TO1STEP-1:READV1(I):V1(I)=V1(I)+2:NEXT:T=19:U=6:GOSUB2000:FORI=1TO12:V1(I)=V1(I)-2:NEXT:T=20:U=7:PRINT"":POKEV+4,33:GOSUB2000:FORI=1TO12:V1(I)=V1(I)-4:NEXT:T=21:U=8:PRINT"[158]":POKEV+4,65:GOSUB2000:FORI=1TO18:SL$=SL$+"[204][145][157]":NEXT
  35. 1090 PRINT""LEFT$(CD$,18)TAB(5)SL$:SL$="":FORI=1TO38:SL$=SL$+"[175]":NEXT:FORI=1TO10:READA,B,C,D:PRINTLEFT$(CD$,A)TAB(B)LEFT$(SL$,C);:IFD=1THENPRINT"[186]"
  36. 1120 NEXT:SL$="":FORI=1TO18:SL$=SL$+"[186][145][157]":NEXT:PRINTLEFT$(CD$,18)TAB(36)SL$:SL$="[146][223]  [223][146]":FORI=1TO4:PRINTLEFT$(CD$,18+I)TAB(4+I)SL$;:NEXT:PRINT"[157]                             ":SL$=" [223]":FORI=1TO3:SL$=" "+SL$:PRINTLEFT$(CD$,18+I)TAB(35)""SL$"[146]":NEXT
  37. 1180 SL$=" PROFIT TIMES 100":PRINT"";:FORI=1TOLEN(SL$):PRINTMID$(SL$,I,1):NEXT
  38. 1181 PRINTLEFT$(CD$,3)TAB(2)"$30":PRINTLEFT$(CD$,8)TAB(2)"$20":PRINTLEFT$(CD$,13)
  39. 1182 PRINTTAB(2)"$10":PRINTLEFT$(CD$,18)TAB(2)"  0"
  40. 1183 P$="ISN'T THIS 'AT A A GLANCE' PRESENTATION FAR EASIER TO LOOK AT THAN"
  41. 1235 P$=P$+" REAMS AND REAMS OF PAPERS AND DOCUMENTS WITH NUMBERS ON THEM ? ":POKEV,20:POKEV+1,6:POKEV+5,4:POKEV+6,0:GOSUB2150:POKEV+4,0:F=3000:GOSUB2030
  42. 1245 PRINT"[147]":POKE53281,0:POKE53280,6:A$="[158] FINANCIAL  ":B$="[158]  PLANNING  "
  43. 1250 C$="[158]            [146]":GOSUB2060:F=1000:GOSUB2030
  44. 1251 PRINT"[147][144]":POKE53281,7:POKE53280,5
  45. 1255 P$="NOW THAT YOU HAVE A THRIVING BUSINESS":GOSUB2040
  46. 1260 P$="YOU ARE BOUND TO WANT IT KEPT THAT WAY.":GOSUB2040
  47. 1265 F=2000:GOSUB2030:P$="DON'T TRUST TO LUCK !":GOSUB2040
  48. 1266 PRINTTAB(14)"   [164][164][164][164][164][164][164]
  49. 1267 [153][163]14)"  (null) (null)  (null) (null)FN
  50. 1268 PRINTTAB(14)" [206] [209]  [209] [206][209][165]
  51. 1269 [153][163]14)"(null) (null)  (null) (null) CLOSEFN
  52. 1271 PRINTTAB(14)"[207][183][183][183][183][183][208][209] [160][165]
  53. 1272 [153][163]14)"FN    (null)THEN  (null)FN
  54. 1273 PRINTTAB(14)"[165]  [209]  [167]  [206]
  55. 1274 [153][163]14)"FN(null)    THEN(null)(null)
  56. 1275 PRINTTAB(14)"[204][175][175][175][175][175][186][206]"
  57. 1280 PRINT:F=2000:GOSUB2030:P$="LET THE COMMODORE 64 TAKE CARE OF":GOSUB2040
  58. 1285 P$="YOUR FINANCIAL PROBLEMS FOR YOU.":GOSUB2040
  59. 1290 F=2000:GOSUB2030:PRINT"[147][144]"CHR$(14):POKE53281,1:POKE53280,2
  60. 1295 P$="[213]SING AN 'ELECTRONIC SPREADSHEET', YOU":GOSUB2165:PRINT
  61. 1300 P$="CAN SET THE DETAILS OF YOUR COMPANY":GOSUB2165:PRINT
  62. 1305 P$="UP IN THE MEMORY OF THE COMPUTER.":GOSUB2165:F=3000:GOSUB2030:PRINT
  63. 1310 P$="[212]HEN, AT A FEW KEYSTROKES, YOU CAN":GOSUB2165:PRINT
  64. 1315 P$="CHANGE ANY PARAMETERS YOU CARE TO AND":GOSUB2165:PRINT
  65. 1320 P$="SEE IMMEDIATELY WHAT EFFECT THIS CHANGE":GOSUB2165:PRINT
  66. 1325 P$="HAS MADE TO ANY ASSOCIATED AREAS.":GOSUB2165:F=4000:GOSUB2030:PRINT
  67. 1330 PRINT:P$="[212]HIS IS CALLED 'WHAT IF' ANALYSIS,":GOSUB2165:PRINT
  68. 1335 P$="AND IS PERHAPS THE MOST POWERFUL":GOSUB2165:PRINT
  69. 1340 P$="FINANCIAL PLANNING AID AVAILABLE TO":GOSUB2165:PRINT
  70. 1345 P$="THE BUSINESSMAN.":F=4000:GOSUB2165:GOSUB2030
  71. 1350 PRINT"[147]":P$="[212]HERE IS A FINANCIAL PLANNING":GOSUB2165:PRINT
  72. 1355 P$="PACKAGE FOR USE ON THE [195]OMMODORE 64":GOSUB2165:PRINT
  73. 1360 P$="WHICH WILL OFFER THIS FACILITY IN  ":GOSUB2165:PRINT
  74. 1365 P$="ADDITION TO MANY MORE.":GOSUB2165:F=4000:GOSUB2030
  75. 1370 PRINT"[147]";:A$="            ":B$="   OTHERS   ":C$="            "
  76. 1375 POKE53281,0:POKE53280,12:PRINTCHR$(142):GOSUB2060
  77. 1380 PRINT"[147]"CHR$(14)"[200]OW CAN THE 64 HELP ME ? ....":F=2000:GOSUB2030
  78. 1385 P$="[201]F YOU OWN A BUSINESS THEN THE 64 CAN":GOSUB2040
  79. 1390 P$="HELP YOU IN MANY WAYS. [193] FEW FURTHER":GOSUB2040
  80. 1395 P$="EXAMPLES OF BUSINESS APPLICATIONS":GOSUB2040
  81. 1400 P$="MAY CONVINCE YOU THAT A [195]OMMODORE 64":GOSUB2040
  82. 1405 P$="IS THE COMPUTER FOR YOU.":GOSUB2040:F=5000:GOSUB2030:PRINT"[147]"
  83. 1420 P$="[211]TOCK [195]ONTROL ":FF=2:GOSUB2180:P$="[208]AYROLL ":FF=4:GOSUB2180
  84. 1425 P$=" [211]PACE [201]NVADERS ":FF=6:GOSUB2180
  85. 1430 P$="   [215]HOOPS!    ":FF=6:GOSUB2180
  86. 1435 P$="[196]ATA [194]ASE [205]ANAGEMENT ":FF=6:GOSUB2180
  87. 1440 P$="[195]OMPUTER [193]IDED [196]ESIGN ":FF=8:GOSUB2180
  88. 1445 P$="[195]REDIT [195]ONTROL ":FF=10:GOSUB2180:P$="[208]ERSONAL [196]IARY ":FF=12:GOSUB2180
  89. 1450 P$="[210]EPORT [215]RITING ":FF=14:GOSUB2180:P$="[211]PACE [201]NVADERS ":FF=16:GOSUB2180
  90. 1455 P$="    @@#????!!   ":FF=16:GOSUB2180:P$="[193]ND ANYTHING YOU CARE TO NAME "
  91. 1460 FF=16:GOSUB2180:F=3000:GOSUB2030:PRINT"[147]":POKE53281,1:POKE53280,10
  92. 1465 PRINT"[144][198]OR FURTHER INFORMATION ON BUSINESS"
  93. 1466 PRINT"APPLICATIONS, PLEASE ASK ANY OF THE"
  94. 1467 PRINT"STAFF AT THIS STORE."
  95. 1468 PRINT"LOAD"CHR$(34)"BOOT2.D"CHR$(34)",8":POKE632,13
  96. 1469 PRINT"RUN":POKE633,13:POKE634,13:POKE635,13:POKE198,4:PRINT"[145][145][145][145][145][145][145][145][145][145]"
  97. 1470 NEW
  98. 2000 FORI=12TO1STEP-1:FORJ=1TOV1(I):POKEV+1,J*5:PRINTLEFT$(CD$,T)TAB(I*2+U)LEFT$(LU$,J*9)TP$:PRINTLEFT$(CD$,T)TAB(I*2+U-1)LEFT$(TU$,J*3+3):NEXT:NEXT:RETURN
  99. 2030 FORZZ=1TOF:NEXTZZ:RETURN
  100. 2040 LX=LEN(P$):IFLX/2<>INT(LX/2)THENP$=P$+" ":LX=LX+1
  101. 2041 POKEV+4,0:POKEV+5,12:POKEV+1,LEN(P$)/2:POKEV+15,LEN(P$)*4:POKEV+4,23
  102. 2045 FORIX=1TOLX/2:PRINTTAB(20-IX)MID$(P$,LX/2+1-IX,1)CHR$(145)
  103. 2046 PRINTTAB(19+IX)MID$(P$,LX/2+IX,1)CHR$(145):NEXT:PRINT:PRINT:RETURN
  104. 2060 PRINT"      BUSINESS APPLICATIONS":PRINT:PRINT"          [169]           [146][169]":PRINT"         [169]           [146][169][152][169]":PRINT"        [169]           [146][169][152][169] [146]":PRINT"       [169]           [146][169][152][169]  [146]  ":PRINT"       [153]  FILE  64  [152][169]   [146]"
  105. 2067 PRINT"       [165]          [167][152]    [146]":PRINT"       [204][175][175][175][175][175][175][175][175][175][175][186][152]    [146]":PRINT"       [165]          [167][152]    [146]":PRINT"       [165]          [167][152]    [146]":PRINT"       [165]   [202][195][195][203]   [167][152]    [146]":PRINT"       [204][175][175][175][175][175][175][175][175][175][175][186][152]    [146]"
  106. 2073 PRINT"       [180]          [167][152]    [146]":PRINT"       [165]          [167][152]    [146]":PRINT"       [165]   [202][195][195][203]   [167][152]    [146]":PRINT"       [204][175][175][175][175][175][175][175][175][175][175][186][152]    [146]":PRINT"       [165]          [167][152]   [146][169]":PRINT"       [165]          [167][152]  [146][169]"
  107. 2079 PRINT"       [165]   [202][195][195][203]   [167][152] [146][169]":PRINT"       [204][175][175][175][175][175][175][175][175][175][175][186][152][169]":F=1000:GOSUB2030:PRINTLEFT$(CD$,15);:PRINT"       [165][206]         [167]":GOSUB2120:PRINT"      [207][183][183][183][183][183][183][183][183][183][183][208][159][169]":PRINT"      [165]          [167] ":PRINT"      [165]   [202][195][195][203]   [167] "
  108. 2087 PRINT"      [204][175][175][175][175][175][175][175][175][175][175][186][206]":F=100:GOSUB2030:PRINTLEFT$(CD$,15);:PRINT"       [165][206]         [167]":PRINT"       [206]          [206]":PRINT"     [207][183][183][183][183][183][183][183][183][183][183][208][159][169] ":PRINT"     [165]          [167]  ":PRINT"     [165]   [202][195][195][203]   [167] [206]":PRINT"     [204][175][175][175][175][175][175][175][175][175][175][186][206][167]"
  109. 2096 F=500:GOSUB2030:PRINTLEFT$(CD$,16)TAB(6)A$:F=100:GOSUB2030:PRINTLEFT$(CD$,15)TAB(6)A$:PRINTTAB(6)B$:F=100:GOSUB2030:PRINTLEFT$(CD$,14)TAB(6)A$:PRINTTAB(6)B$:PRINTTAB(6)C$:GOSUB2130:F=2000:GOSUB2030:RETURN
  110. 2105 FORI=1TOLEN(P$):PRINTMID$(P$,I,1);:IFASC(MID$(P$,I))>45THEN2110
  111. 2107 F=8:GOSUB2030:NEXT:PRINT:RETURN
  112. 2110 POKEV,0:POKEV+1,0:POKEV+4,0:POKE54296,15:POKEV,10:POKEV+1,PEEK(V+27):POKEV+4,17:POKEV+5,4:GOTO2107
  113. 2120 POKEV+4,0:POKEV,1:POKEV+1,2:POKEV+5,153:POKEV+4,129:RETURN
  114. 2130 POKEV,0:POKEV+1,0:POKEV+4,0:POKE54296,15:POKEV,50:POKEV+1,10:POKEV+4,33:POKEV+5,140:POKEV+14,1:POKEV+15,1:POKEV+24,15+128:POKEV+18,17:FORKK=1TO200:POKEV+1,PEEK(V+27):POKEV+15,KK:NEXT:RETURN
  115. 2140 POKEV+4,0:POKEV+24,0:POKEV,0:POKEV+1,0:POKEV+5,0:POKEV+6,0:POKEV,25:POKEV+1,15:POKEV+5,184:POKEV+4,129:POKEV+24,15:RETURN
  116. 2150 FORR=1TO40:P$=" "+P$:NEXT:FORR=1TOLEN(P$):PRINTLEFT$(CD$,24)MID$(P$,R,40);:FORK=1TO40:NEXT:POKEV+4,0:POKEV+4,33:NEXT:RETURN:DATA16,15,13,10,8,7,14,10,8,7,6,5:DATA3,6,11,1,3,21,6,1,3,33,4,0,8,6,9,1,8,22,1,1,8,34,3,0,13,6,1,1
  117. 2165 IFLEN(P$)<40THENP$=P$+" ":GOTO2165
  118. 2166 POKEV+4,0:POKEV+5,2:POKEV+6,240:POKEV+4,17
  119. 2170 FORI=40TO1STEP-1:PRINTTAB(I)MID$(P$,1,40-I)"[145][145]":POKEV+1,I:NEXT
  120. 2175 POKEV+6,0:POKEV+4,0:RETURN
  121. 2180 FORI=39-LEN(P$)TO20-LEN(P$)/2STEP-1:PRINTLEFT$(CD$,23)SPC(I)P$" ";
  122. 2181 POKEV+4,0:POKEV+4,129:POKEV+1,I:NEXT
  123. 2185 FORI=23TOFFSTEP-1:PRINTLEFT$(CD$,I+1)TAB(20-LEN(P$)/2)LEFT$(BL$,LEN(P$))
  124. 2190 PRINTLEFT$(CD$,I)TAB(20-LEN(P$)/2)P$:FORJ=1TO50:NEXT
  125. 2191 POKEV+4,0:POKEV+1,I:POKEV+4,129:POKE53280,I:NEXT:RETURN
  126. 5020 DATA13,35,2,0,18,6,1,1,18,35,2,0
  127.